home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PKEY11_1.ARJ / IT.LSP < prev    next >
Text File  |  1992-03-14  |  987b  |  27 lines
  1. ;Fast import text (set style first)
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (DEFUN C:IT(/ TXT SP TH LNS HT WD STL LS DT)
  7. (PRINC "\nEnter filename to read. If not on current path, enter full path. ")
  8. (SETQ TXT(OPEN(GETSTRING "\nFile name [filename.txt]: ")"r"))
  9. (SETQ SP(GETPOINT "\nText starting point: "))
  10. (SETQ HT(GETSTRING "\nText height: "))
  11. (SETQ WD(GETSTRING "\nWidth: "))
  12. (SETQ DT(READ-LINE TXT))
  13. (COMMAND "text" SP "" DT)
  14. (WHILE(/= DT NIL)
  15. (SETQ DT(READ-LINE TXT))
  16. (COMMAND "text" "" DT))
  17. (CLOSE TXT)(PRINC))
  18. (PRINC "\n.............loaded.")
  19. (PRINC "\n")
  20. (PRINC "\nThis text importing routine defaults to the current style.")
  21. (PRINC "\n")
  22. (PRINC "\nIf you want to, set style before executing.  We found")
  23. (PRINC "\n")
  24. (PRINC "\nit faster to sacrifice style control to eliminate the possibility")
  25. (PRINC "\n")
  26. (PRINC "\nof a regen on a large drawing file.")
  27. (PRINC)